#!/usr/bin/perl -w
use Getopt::Long;
use FindBin;

#88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888

#	Usage

#88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888


my $usage = <<'USAGE';

USAGE:

    panda_gunzip.pl       filename_from filename_to

USAGE

#88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888

#	Get options

#88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888

if (@ARGV != 2)
{
	print STDERR "ERROR:\t\npanda_gunzip missing arguments!\n";
	exit 1;
}

if (system ("gunzip -f -c $ARGV[0] > $ARGV[1]") != 0)
{
	print STDERR "ERROR:\t\npanda_gunzip failed!\n$!\n";
	exit 1;
}
print STDERR "done";
exit 0;

